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Subroutine ERFTAPINI ( Array_addr, Array_size ) 


Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WI 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR Y 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
Saaustehntee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT Ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR: Elliott A. Drayton CREATION DATE: 27-Jan-1983 
Functional description: 


This is the initialization module for the loadable image ERFTAPE.EXE. 
After ERFTAPE has been loaded this routine is called to return 

the information from it tables. These tables specifiy which error 

log packets this loadable image will process. The tables consist of: 


ENTRY TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


this loadable image will process. 


The DEVICE CLASS value specifies the class of the packet that will 
be process by this loadable image. 


The MODULE VERSION is used to determine if the module in this image 
is the one to use. This is accomplished by the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER VECTOR OFFSET is the index to the transfer vector to 
be used for a specific device or entry type. For example, the transfer 
vectors for the disk image are ordered as: 


INITDISK 0 ' a routine similar to this one 
MASSDISK 1 ' a device specific routine 


X-11_ FORTRAN 3 Page 
SKSVMSMASTER:CE CUINIT_TAPE.FOR?1 


The ENTRY TYPE value is the packet type identifier for the packets that 
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Modified by: 
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ERFTAPINI 1B-Sep-1984 00:08:36 VAX-11 FORTRAN test -5 3 


DISKSVMSMASTER: CERF .S SRCJINIT. TAPE .FOR; or 


9 DT$_ TABI, DCS-TAPE, V1, 


5 , Parameter DCS$_TAPE = '00000002'x 
; TAPE DEVICES 
5 BAMASTER BTE-TLE = cenggggucy  TeNe maar 
oc . 

71 PARAMETER DT$_TU77 = ' gy ' TU77 MAGTAPE 
Borg PARAMETER DT$_TS11 = ° 4*x ' T$11 MAGTAPE 
007 PARAMETER DT$_TU78 = ° 5°x 4 Ture MAGTAPE 
0074 PARAMETER DIS-TATS be BS 0 3% ' TA78 MAGTAPE 
0075 PARAMETER DT$_TUBO = '00000007'xX ! TU8O MAGTAPE 
007 PARAMETER brs Tust = 90000008 ! TUB1 MAGTAPE 
ih PARAMETER DT$_TA81 = ° 0 '— ! TA81 MAGTAPE 
0079 Parameter V1 = 1 ! device module version number 
ied Parameter Maxtypes = 5 
$088 Integer*4 Array addr, Array _size 
0085 Integer*2 Tape_codes ( 4 * Maxtypes ) 

008? Data Tape.co codes / 

0088 1 DTS_TE16, DCS$_TA Be ' TE16 MAGTAPE 
0090 DIScTUr?, DESTTAPE, Mi 1; i TUF? maGTaPE 
0091 rs DIS-ISit. DCS"TAPE. vi. é, i TS11 MAGTAPE 
iad] 5 DT$- _1U78, Dcs_ “TAPE, v1, 3/ ! TU78 MAGTAPE 
0094 ! The followin gvices are handled by ERFPROC1.EXE: 
eG eS af 
0098 : ' 

sts 


Array_addr = ZLOC (Tape_codes(1)) 
Array_size = Maxtypes 


oooo 
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wn 


Return 
End 
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| 
PROGRAM SECTIONS 
Name Bytes Attributes 


SCODE 19 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 40 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 59 


ENTRY POINTS 
Address Type Name 


0-00000000 ERFTAPINI 
VARIABLES 
Address Type Name Address Type Name 


AP-00000004@ I*4 ARRAY_ADDR AP=00000008@ I*4 ARRAY_SIZE 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*2 TAPE_CODES 40 (20) 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:INIT_TAPE/OBJ=0BJ$:INIT_TAPE MSRC$:INIT_TAPE 
/ CHE CK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
NO § , TRACEBACK) 
P DE MAP) 
/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 9.78 seconds 
Elapsed Time: .20 seconds 
Page Fauits: 85 

Dynamic Memory: 155 pages 
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